home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / reqtlsdv.lha / ReqTools / Glue / Dice / DLibSource.lha / auto.a next >
Text File  |  1995-09-20  |  461b  |  42 lines
  1.  
  2.  
  3.     xdef    _ReqToolsBase
  4.     xref    __AutoFail0
  5.  
  6. _LVOOpenLibrary     equ    -552
  7. _LVOCloseLibrary    equ    -414
  8.  
  9.     section autoinit0,code
  10.  
  11.     moveq.l #0,d0
  12.     lea    reqtoolsname(pc),a1
  13.     jsr    _LVOOpenLibrary(a6)
  14.     move.l    d0,_ReqToolsBase(a4)
  15.     beq    __AutoFail0
  16.  
  17.     bra    cont
  18.  
  19. reqtoolsname
  20.     dc.b    'reqtools.library',0
  21.     ds.w    0
  22. cont
  23.  
  24.  
  25.     section autoexit0,code
  26.  
  27.     move.l    _ReqToolsBase(a4),d0
  28.     beq    nolib
  29.  
  30.     move.l    d0,a1
  31.     jsr    _LVOCloseLibrary(a6)
  32. nolib
  33.  
  34.  
  35.     section libbss,bss
  36.  
  37. _ReqToolsBase
  38.     ds.l    1
  39.  
  40.  
  41.     END
  42.